home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / plan ahead (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.2 KB  |  155 lines
  1. 10 ifa=0thena=1:load"pa.f",8,1
  2. 15 ifa=1thena=2:load"pa.o",8,1
  3. 20 poke53272,31:printchr$(14)chr$(8):goto940
  4. 25 poke214,17:print:print""cl$:print""cl$:return
  5. 27 forn=30to5step-2:pokec+1,n:forr=1to20:next:next:pokec+1,0:forr=1to900:next
  6. 28 return
  7. 30 printpeek(197):goto30
  8. 40 sq=sq+40:l=0:pokec+1,rnd(.)*40+30:gosub80:return
  9. 50 sq=sq-40:l=1:pokec+1,rnd(.)*40+30:gosub80:return
  10. 60 sq=sq+1:pokec+1,rnd(.)*5+30:gosub80:return
  11. 70 sq=sq-1:pokec+1,rnd(.)*30+10:gosub80:return
  12. 80 forn=1to2:next
  13. 100 iftm=0thenpokec+1,30:fort=1to30:next:pokec+1,0:return
  14. 101 poke214,2:print:printtab(15)se
  15. 105 ifse/10=int(se/10)thenpokec+1,30
  16. 110 ifse=999thenpoke1163,32
  17. 115 ifse=99thenpoke1162,32
  18. 120 ifse=9thenpoke1161,32
  19. 125 pokec+1,0:return
  20. 130 sc=0:se=50+(sm)*100:m=0:sh=224
  21. 131 sq=1309+int(rnd(.)*sk)+int(rnd(.)*sk)*40
  22. 132 print"      ";
  23. 133 printtab(28)hs
  24. 134 poke214,17:print:print"[155]  level"sm;spc((tb(sm)-6))lv$(sm)
  25. 135 pokesq,sh:pokesq+c,l
  26. 140 j=peek(e):o=peek(197)
  27. 145 iftmthense=se-1:gosub100
  28. 146 sys49152,55581,55601,sk:ifpeek(2)then560
  29. 147 sys49155,sk+2
  30. 148 iftmthenifse<1then280
  31. 149 ifo=64andj=127then140
  32. 150 print""m
  33. 190 ifo=37orj=125thenifpeek(sq+40)<>42thenm=m+1:gosub40:goto135
  34. 200 ifo=33orj=126thenifpeek(sq-40)<>42thenm=m+1:gosub50:goto135
  35. 210 ifo=42orj=119thenifpeek(sq+1)<>42thenm=m+1:gosub60:goto135
  36. 220 ifo=34orj=123thenifpeek(sq-1)<>42thenm=m+1:gosub70:goto135
  37. 230 ifo<>21then240
  38. 235 xx=peek(sq+c):forw=0to45:pokesq,sh:pokesq+c,w:next:pokesq+c,xx:m=m+2:goto135
  39. 240 if o=13thenz=z+1:pokec+24,15*(zand1):goto135
  40. 260 ifo=62then932:rem quit
  41. 270 ifo=23thenm=m+3:gosub520:goto135:rem clr
  42. 277 goto140
  43. 280 gosub25:gosub27:print"[145][145]         out of time!  ":poke198,0:goto640
  44. 290 poke53281,6:print"[147]          [150][208] [204] [193] [206]     [193] [200] [197] [193] [196]"
  45. 295 print"[159]  [176][164][164][164][164][164][164][164][174]  [176][164][164][164][164][164][164][164][174]  [176][164][164][164][164][164][164][164][164][164][164][164][174]"
  46. 300 print"  [221] moves [221]  [221] timer [221]  [221] top score [221]":p=1329
  47. 310 print"  [221]       [221]  [221]       [221]  [221]           [221]"
  48. 325 print"  [173][163][163][163][163][163][163][163][189]  [173][163][163][163][163][163][163][163][189]  [173][163][163][163][163][163][163][163][163][163][163][163][189][155]"
  49. 330 poke1247,27:poke1247+c,15:forn=1tosk+2:poke1247+n,42:poke1247+n+c,15:next
  50. 332 poke1247+n,29:poke1247+n+c,15
  51. 335 poke1287,42:poke1287+c,15:poke1287+sk+3,42:poke1287+sk+3+c,15
  52. 340 forq=1tosk:pokep-2,42:pokep-2+c,15
  53. 350 forr=0tosk-1:v%=rnd(.)*2:pokep+r+c,v%:pokep+r,224
  54. 360 next:pokep+r+1,42:pokep+r+1+c,15:p=p+40:next
  55. 365 pokep-2,42:pokep-2+c,15:pokep+sk+1,42:pokep+sk+1+c,15:p=p+40
  56. 370 pokep-2,88:pokep-2+c,15:forn=0tosk+1:pokep-1+n,42:pokep-1+n+c,15:next
  57. 372 pokep+n-1,90:pokep+n-1+c,15
  58. 375 print""tab(28)hs
  59. 376 print"[159]"
  60. 377 print"  [176][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][174]"
  61. 378 print"  [221]"spc(33)"[221]"
  62. 379 print"  [221]"spc(33)"[221]"
  63. 380 print"  [173][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][189][155]"
  64. 385 print" i[158] - up, white     f[158] - find cursor"
  65. 390 print" k[158] - down, black   x[158] - clear whole area"
  66. 400 print" j[158] - left          s[158] - toggle sound"
  67. 410 print" l[158] - right         q[158] - quit this game"
  68. 430 print"[155]"
  69. 450 print"   [";:forn=1tosk+2:print"*";:next:print"]"
  70. 452 forn=1tosk+2:print"   * "spc(sk)" *":next
  71. 454 print"   [216]";:forn=1tosk+2:print"*";:next:print"[218]"
  72. 460 iftm=0thenprint"[159]off[155]"
  73. 470 return
  74. 480 print""
  75. 490 print"";:fori=1tosk+2:print" ";:next:print
  76. 500 fori=1tosk:print" ";:forq=1tosk:print"";:next:print" ":next
  77. 510 print"";:fori=1tosk+2:print" ";:next:print
  78. 515 return
  79. 520 print""
  80. 540 forq=1tosk:print""left$(cl$,sk+1):next
  81. 550 return
  82. 560 iftm=0thensc=(sk*50)-m:goto590
  83. 565 iftmthensc=sc+se-m
  84. 590 ifsc>hsthenhs=sc
  85. 610 forr=1to3:forn=45to75:pokec+1,n:next:gosub80:next
  86. 620 gosub25:print"[145][145][155]   right!  your score is"sc
  87. 640 print"(s[155])ame grid  (n[155])ew grid  (q[155])uit"
  88. 650 geta$:ifa$<>"s"anda$<>"n"anda$<>"q"then650
  89. 660 ifa$="n"thengoto960
  90. 670 ifa$="q"then932
  91. 675 gosub25:gosub520:goto130
  92. 770 pokec+1,0:open15,8,15:print#15,"r0:hello connect=hello connect":input#15,er
  93. 771 print"[147]":poke53272,21
  94. 780 ifer<>63then end
  95. 790 load"hello connect",8,1
  96. 800 pokec+1,0:print"[147]     @ [208]lan [193]head: [201]nstructions +
  97. 810 [153]"  (NULL)ry to match the pattern on the right"
  98. 820 [153]"  by pressing the i, j, k and m keys."
  99. 830 [153]"  right$ moves you up and changes the cursor"
  100. 840 [153]"  to white.  (NULL) moves you down and makes"
  101. 850 [153]"  the cursor black.  mid$ and (NULL) move you"
  102. 860 [153]"  left and right without changing the"
  103. 870 [153]"  cursor color.  lenlearing the area or"
  104. 880 [153]"  finding the cursor will cost you some"
  105. 890 [153]"  moves and lower your score.  level 5"
  106. 900 [153]"  is the most difficult."
  107. 910 [153]"      @ (NULL)ress any key to begin. + ":[151]198,0
  108. 920 [161]w$:[139]w$[178]""[167]920
  109. 930 [142]
  110. 932 [141]25:[153]"ononlist    back to loadstar? (y/n)"
  111. 934 [161]w$:[139]w$[179][177]"y"[175]w$[179][177]"n"[167]934
  112. 936 [139]w$[178]"n"[167]960
  113. 937 [137]770
  114. 940 c[178]54272:[129]n[178]c[164]c[170]24:[151]n,0:[130]:[151]c[170]5,129:[151]c[170]6,129:[151]c[170]24,15:sh[178]160
  115. 945 [129]i[178]1[164]5:[135]lv$(i),tb(i):[130]
  116. 950 [151]c[170]4,33:[151]53281,6:[141]1100:e[178]56320:[141]800
  117. 955 cl$[178]"                                "
  118. 960 [151]198,0:[151]c[170]1,0:[141]1050:[153]"open"
  119. 970 [151]214,7:[153]:[153][163]10)"pick a level (1 to 5)"
  120. 980 [161]w$:[139]w$[179]"1"[176]w$[177]"5"[167]980
  121. 990 sm[178][197](w$):sk[178]sm[170]3
  122. 1000 [153]""[163]tb(sm))"level"sm;lv$(sm)
  123. 1010 [153]"(t)imed or (u)ntimed"
  124. 1015 [161]w$:[139]w$[179][177]"t"[175]w$[179][177]"u"[167]1015
  125. 1020 se[178]1:tm[178]0:[139]w$[178]"t"[167]tm[178]1
  126. 1040 [141]290:[151]53280,6:[137]130
  127. 1050 [153]"load         def(NULL) (NULL) atn (NULL)     atn left$ val atn str$"
  128. 1060 [153]"     ******************************"
  129. 1070 [129]n[178]1[164]16:[153]"     **                          **":[130]
  130. 1080 [153]"     ******************************":[142]
  131. 1090 [151]c[170]1,[187](1)[172]24[170]3:[129]r[178]1[164]150:[130]:[151]c[170]1,0:[142]
  132. 1100 [151]53280,4:[153]"load       loadstar proudly presents"
  133. 1105 p$[178]"list   wait]cmdcmdcmdcmd wait   cmdcmdcmdcmd   wait(NULL)cmdcmdcmdcmd cmd cmd wait"
  134. 1110 l$[178]" cmd cmd cmd cmd cmd     "
  135. 1120 a$[178]"wait[  wait]cmdcmdcmdcmd wait   cmdcmdcmdcmd    cmdcmdcmdcmd wait   waitcmdcmdcmdcmd wait   waitcmdcmdcmdcmd wait   wait "
  136. 1130 h$[178]" wait   cmdcmdcmdcmd wait   cmdcmdcmdcmd    cmdcmdcmdcmd wait   waitcmdcmdcmdcmd wait   waitcmdcmdcmdcmd wait   wait "
  137. 1140 e$[178]"     cmdcmdcmdcmdcmd cmd cmd   cmdcmdcmd cmd     "
  138. 1150 n$[178]" wait    cmdcmdcmdwait   cmdcmdcmdcmdcmd wait  wait  cmdcmdcmdcmdcmd wait    cmdcmdcmdcmdcmd wait    cmdcmdcmdcmdcmd wait   
  139. 1160 d$="[155] ][157][157] ["
  140. 1170 print"  "p$:gosub1090:print"[145][145][145][145][145][145][146]"spc(7)l$:gosub1090:print"[145][145][145][145][145][145][146]"spc(13)a$
  141. 1180 gosub1090:print"[145][145][145][145][145][145][146]"spc(18)n$:poke1162,160:poke1163,160:poke1326,160
  142. 1190 poke1326+c,15:poke1163+c,15:poke1162+c,15:gosub1090
  143. 1200 printspc(17)""a$:gosub1090:print"[145][145][145][145][145][145][146]"spc(22)h$:gosub1090:print"[145][145][145][145][145][145][146]"spc(27)e$
  144. 1210 gosub1090:print"[145][145][145][145][145][145][146]"spc(33)a$:gosub1090
  145. 1220 print"                by"
  146. 1230 print"                             [215]. [205]. [211]hoc";:forn=1to1000:next
  147. 1240 gosub27
  148. 1250 print"k[157]l[157]e[157]y[145]"
  149. 1260 print"[145][145]     (c) 1988"
  150. 1270 print"[145][145][145][145][145][145][145][145][145][145]"spc(38)d$
  151. 1280 forn=1to2000:next
  152. 1290 return
  153. 2000 data"the owimpics",10,"the mediocrities",8,"the challenger",9
  154. 2010 data"the destroyer",10,"the ultimate",10
  155.